IF MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software. Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
END IF
SetBitmap CUIDLL$, LOGO
SetTitle "CBI Tutorial Install ... Created with CBIquick"
''Save a copy of previous menu (if present)------------------------
DEST_MNU$ = DEST$ + "\DEMORUN.MNU"
OLD_MNU$ = DEST$ + "\OLD.MNU"
i% = DoesFileExist(DEST_MNU$, femExists)
IF i% = 1 THEN
CopyFile DEST_MNU$, OLD_MNU$, cmoNone, 0
END IF
'$IFDEF DISKSIZE ''If disk size to be checked
''Check the disk space - TEST THIS ON NETWORK DRIVES-----------------
WINDRIVE$ = MID$(DEST$, 1, 1)
WantedDiskSize&=5800000
'$INCLUDE 'DISKSIZE.INC'
DiskSize&=GetFreeSpaceForDrive(WINDRIVE$)
IF WantedDiskSize& > DiskSize& THEN
i% = DoMsgBox("Not enough free disk space. Need 1.8 MB to install + 4 MB additional to run CBIquick tutorial.", "Install Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
END IF
'$ENDIF ''DISKSIZE
SrcDir$ = GetSymbolValue("STF_SRCDIR")
CreateDir DEST$, cmoNone
OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
WriteToLogFile ""
WriteToLogFile " User chose as destination directory: '" + DEST$ + "'"
WriteToLogFile " Installing DISK 1 to: '" + DEST$ + "'"